64'er 1987 October/64er_Magazin_87-10_1987_Markt__Technik_de.d64/pd menu maker

Commodore BASIC | 2022-10-26 | 3KB | 97 lines

1 rem
2 rem pulldown   menu maker
3 rem
4 rem (c) 86: marosoft
5 rem
9 if fl=0 then dim m(5),m$(5),b$(5,11)
10 if fl=0 then fl=1:print "[147]loading pd1-4 ...":load "pd1",8,1
11 if fl=1 then fl=2:load "pd2",8,1
12 if fl=2 then fl=3:load "pd3",8,1
13 if fl=3 then fl=4:load "pd4",8,1
14 print"[147]pulldown menu maker        (c) marosoft"
15 open 1,8,15:print#1,"r:h#h#h#=pd0"
16 input#1,a,b$,c,d:if a<>0 then 20
17 print#1,"r:pd0=h#h#h#":print" pd0 existiert schon auf dieser disk"
18 print" andere disk einlegen, <return>
19 [133] a$:[160] 1:[137] 15
20 [152]1,"i":[160] 1
21 [153]"es stehen 5 obermenues zur verfuegung.
22 print"bitte geben sie die namen ein:"
23 print "stellen sie die gross/kleinshreibung wiein ihrem programm ein !!!
30 [129] x[178]1 [164] 5:b$[178]" ":[139] x[178]5 [167] b$[178]""
40 [153]"menu"x":";
50 [133] t$
60 [139] [195](t$)[177]7[170](x[178]5) [167] [153]"on";:[137] 40
70 [153]
80 [139] [195](t$)[178]7[170](x[178]5) [167] 100
90 t$[178]t$[170]" ":[137] 80
100 m$(x)[178]t$:t$[178]"":[153]:[153]"on "
110 [130] x
120 me$[178]" "
130 [129] x[178]1 [164] 5:me$[178]me$[170]m$(x)[170]" ":[130] x
140 [153]"load"me$;:[129] x[178]1 [164] 40:[153]"=";:[130] x
150 [153]:[153]"^ so sieht die kopfzeile aus. ok (j/n) ?"
160 [161] a$:[139] a$[178]"" [167] 160
170 [139] a$[179][177]"j" [167] 10
200 [153] "loadjetzt die anzahl befehle pro menu:
210 for x=1 to 5
220 print"menu"x": "+m$(x):input m(x)
230 if m(x)>10 or m(x)<1 then print"[145][145][145]";:goto 220
240 next x
250 print"[147]und jetzt die befehle:
260 [129] x[178]1 [164] 5:[153]"fuer menu"x": "m$(x)" ("m(x)")"
270 [129] y[178]1 [164] m(x)
280 [153]y":":[133] b$(x,y)
290 [139] [195](b$(x,y))[177]17 [167] [153]"on";:[137] 280
291 [139] [195](b$(x,y))[178]17 [167] 293
292 b$(x,y)[178]b$(x,y)[170]" ":[137] 291
293 b$(x,y)[178]"= "[170]b$(x,y)[170]" ="
300 [130] y:b$(x,y)[178]"=====================":[130] x
310 [153]"load  (1) uebersicht am bildschirm
311 print"  (2) uebersicht auf drucker
312 [153]"  (3) daten errechnen und speichern"
320 [161] a$:a[178][197](a$):[139] a[178]0 [176] a[177]3 [167] 320
330 [139] a[178]3 [167] 500
340 [159] 1,2[170]a
350 [152]1:[152]1:[152]1,me$
360 [129] x[178]1 [164] 5:[152]1: [152]1,m$(x)":":[152]1
370 [129] y[178]1 [164] m(x):[152]1,y"  -"b$(x,y)
380 [130] y,x
390 [160] 1:[137] 310
500 [153]"loadbitte warten, ich rechne... _ hier codetest!
510 rem header (kopfzeile)
520 l=49408:t$=me$:gosub 10000
530 for x=1 to 5
540 poke 50927+x,m(x)-1
550 next x
560 l=51712
570 for x=1 to 5:l=l+256
580 t$="":for y=1 to m(x)+1:t$=t$+b$(x,y):next y:gosub 10000
590 next x
600 print"        _ countdown          "
604 print"diskette einlegen! ok? return!"
605 input a$
610 print"ich speichere jetzt !"
620 open 1,8,2,"pd0,p,w"
630 print#1,chr$(0);chr$(192);
640 for x=49152 to 53247:print""53247-x"    "
650 print#1,chr$(peek(x));:next x
660 close 1
700 print"[147]codetabelle ausdrucken (j/n)
710 [161] a$:[139] a$[178]"" [167] 710
720 [139] a$[179][177]"j" [167] 9999
730 [159] 1,4
740 [152]1,"codetabelle fuer pulldown-menues                    (c) marosoft '86
750 print#1:print#1,"kopfzeile:":print#1,me$
760 for x=1 to 5:print#1:print#1,m$(x):print#1
770 for y=1 to m(x):print#1,(x-1)*10+y-1;tab(5);b$(x,y):next y,x
780 print#1:print#1,99;tab(5)"quit ohne auswahl"
790 close 1
9999 end
10000 rem code errechnen und nach l
10010 for i=1 to len(t$):a$=mid$(t$,i,1)
10020 print"";a$;
10030 poke l+i-1,peek(1024)
10040 next i
10050 return